##############################################################################################################################################
###########################                                                                                       ############################
###########################   MARIANO SILVA (2017), Como comparar os comportamentos decisórios dos magistrados?   ############################
###########################                                                                                       ############################
##############################################################################################################################################
#
#
#
##############################################################################################################################################
######   Instalar pacotes   ##################################################################################################################
##############################################################################################################################################
#
install.packages("readxl")
install.packages("rworldmap")
#
#
#
##############################################################################################################################################
######   Carregar pacotes   ##################################################################################################################
##############################################################################################################################################
#
library(readxl)
library(rworldmap)
#
#
#
##############################################################################################################################################
######   Carregar banco   ####################################################################################################################
##############################################################################################################################################
#
Figura1<-read_excel("C:/Users/Jeferson/Downloads/MARIANO SILVA - Como comparar os comportamentos decisórios dos magistrados","Lista")
#Alterar pasta de destino. (Atenção à inclinação das barras.)
#
n<-joinCountryData2Map(Figura1,
                       joinCode="NAME",
                       nameJoinColumn="ISO3",
                       verbose=TRUE)
#
#
#
##############################################################################################################################################
######   Figura 1   ##########################################################################################################################
##############################################################################################################################################
#
mapCountryData(n,
               nameColumnToPlot="Fases_do_projeto",
               mapTitle="",
               mapRegion=,
               colourPalette=c("deepskyblue4","deepskyblue4"),
               addLegend=FALSE,
               oceanCol="grey90",
               missingCountryCol="White",
               catMethod="categorical",
               numCats=1)
#
#
#
##############################################################################################################################################
######   Figura 2   ##########################################################################################################################
##############################################################################################################################################
#
mapCountryData(n,
               nameColumnToPlot="Fases_do_projeto",
               mapTitle="",
               mapRegion=,
               colourPalette=c("black","orchid1"),
               addLegend=FALSE,
               oceanCol="grey90",
               missingCountryCol="White",
               catMethod="categorical",
               numCats=)
#
#
#
##############################################################################################################################################
##############################################################################################################################################
##############################################################################################################################################